home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / qm-util / mustang.scr < prev    next >
Text File  |  1994-04-02  |  5KB  |  201 lines
  1.  
  2. ;  Qmodem/Wildcat/Tnet/Tomcat 3.02 up/download script
  3. ;  by Chuck May @ TPC [602] 941-2434
  4.  
  5.  
  6. TurnON   8_BIT
  7. TurnOFF  LINEFEED
  8. TurnON   XON/XOFF
  9. TurnOFF  NOISE
  10. TurnON   SCROLL
  11. TurnOFF  PRINT
  12. TurnOFF  SPLIT
  13. TurnON   STATUSLN
  14. TurnOFF  DOORWAY
  15.  
  16. st:
  17. when
  18. delay 5000
  19. timeout 1200
  20. send "ATDT^M"             ; between ATDT & ^M put Phone Number same below
  21. WHEN "BUSY" sta
  22. when "RING" sta
  23. when "NO CARRIER" sta
  24. when "NO DIALTONE" st
  25. waitfor "CONNECT 14400"   ; your Modem Speed here mine is 14400
  26. goto beg
  27.  
  28. sta:
  29. when
  30. delay 5000
  31. send "ATDT^M"
  32. WHEN "BUSY" stb
  33. when "RING" stb
  34. when "NO CARRIER" stb
  35. when "NO DIALTONE" sta
  36. waitfor "CONNECT 14400" 
  37. goto beg
  38.  
  39. stb:
  40. when
  41. delay 5000
  42. send "ATDT^M"
  43. WHEN "BUSY" stc
  44. when "RING" stc
  45. when "NO CARRIER" stc
  46. when "NO DIALTONE" stb
  47. waitfor "CONNECT 14400" 
  48. goto beg
  49.  
  50. stc:
  51. when
  52. delay 5000
  53. send "ATDT^M"
  54. WHEN "BUSY" std
  55. when "RING" std
  56. when "NO CARRIER" std
  57. when "NO DIALTONE" stc
  58. waitfor "CONNECT 14400" 
  59. goto beg
  60.  
  61. std:
  62. when
  63. delay 5000
  64. send "ATDT^M"
  65. WHEN "BUSY" ste
  66. when "RING" ste
  67. when "NO CARRIER" ste
  68. when "NO DIALTONE" std
  69. when "CONNECT 14400"
  70. goto beg
  71.  
  72. ste:
  73. when
  74. delay 5000
  75. send "ATDT^M"
  76. WHEN "BUSY" stf
  77. when "RING" stf
  78. when "NO CARRIER" stf
  79. when "NO DIALTONE" ste
  80. waitfor "CONNECT 14400" 
  81. goto beg
  82.  
  83. stf:
  84. when
  85. delay 5000
  86. send "ATDT^M"
  87. WHEN "BUSY" stg
  88. when "RING" stg
  89. when "NO CARRIER" stg
  90. when "NO DIALTONE" stf
  91. waitfor "CONNECT 14400" 
  92. goto beg
  93.  
  94. stg:
  95. when
  96. delay 5000
  97. send "ATDT^M"
  98. WHEN "BUSY" sth
  99. when "RING" sth
  100. when "NO CARRIER" sth
  101. when "NO DIALTONE" stg
  102. waitfor "CONNECT 14400" 
  103. goto beg
  104.  
  105. sth:
  106. when
  107. delay 5000
  108. send "ATDT^M"
  109. WHEN "BUSY" sti
  110. when "RING" sti
  111. when "NO CARRIER" sti
  112. when "NO DIALTONE" sth
  113. waitfor "CONNECT 14400" 
  114. goto beg
  115.  
  116. sti:
  117. when
  118. delay 5000
  119. send "ATDT^M"
  120. WHEN "BUSY" stj
  121. when "RING" stj
  122. when "NO CARRIER" stj
  123. when "NO DIALTONE" sti
  124. waitfor "CONNECT 14400" 
  125. goto beg
  126.  
  127. stj:
  128. delay 5000
  129. send "ATM0H1^M"
  130. system y
  131.  
  132. beg:
  133. when     "C]" "^M"      ; just on the off chance that you might get a
  134.                          ; press C to continue message due to the SYSOP
  135.                          ; tinkering
  136. Waitfor  "What"
  137. timeout  30
  138. Delay    100
  139. Send     "!^M"          ; Between "! And ^M put your logon name
  140. Waitfor  "Password"
  141. Delay    100
  142. Send     "^M"           ; Between " and ^M put your Passord
  143.  
  144.                                      ; logs into system using fast log
  145.                                      ; in to bypass welcome screens
  146.                                      ; NOTE do not delete control H characters
  147.                                      ; as they will delete any possible line
  148.                                      ; noise or color characters that may
  149.                                      ; appear.
  150.  
  151. when
  152. when "NO CARRIER" st ; restarts script in case of disconnection by going to
  153.                      ; label st
  154. Waitfor  "]:"        ; waits for prompt on Tomcat menu
  155. Delay    1000
  156. Send     "d"         ; requests download packet
  157. delay    1000
  158. timeout  1200     ; sets timer for two minutes to allow for host packing
  159.                      ; messages
  160.  
  161. when
  162. when "No messages found" no          ; if no messages goto label no:
  163. when "Nothing found to download!" no  ; same as above
  164. Waitfor  "done"                       ; part of goodbye when done prompt
  165. Send     "y"                  ; request transmission of packet
  166. waitfor  "now"                ; part of start your download now prompt
  167. Download Z E:\DATA\MUSTANG.qwk  ; G = Ymodem G  Y = Ymodem  Z = Zmodem
  168.                               ; Set to proper protocol and d/l path
  169.                               ; I prefer Zmodem.
  170.                               ; Now the E:\ is my Data area enter yours here
  171.                               ; same below
  172. no:
  173. exist E:\DATA\MUSTANG.rep yes   ; checks for existance of reply packet
  174.                               ; if packet exists goes to label yes:
  175.                               ; if no continues
  176. waitfor "]:"
  177. delay    1000
  178. send     "G"
  179. waitfor "NO CARRIER"
  180. send     "ATM0H1^M"
  181. DELAY 5000
  182. system y                     ; Drop to DOS
  183.  
  184. yes:
  185. waitfor  "]:"                 ; Waits for Tomcat menu prompt
  186. delay    100
  187. send     "u"                  ; starts Tomcat upload procedure
  188. delay    100
  189. waitfor  "MUSTANG.REP"         ; Waits for Tomcat start upload request
  190. Upload   Z E:\DATA\MUSTANG.REP  ; Starts upload G=Ymodem G etc.
  191.                               ; Set path and filename to your reply packet
  192.                               ; name and location
  193.                               ; Change this to your Data area & Drive
  194. DELAY    5000
  195. SEND "G"
  196. WAITFOR "NO CARRIER"
  197. SEND "ATM0H1^M"
  198. Delay    5000
  199. System y                      ; Drop to DOS
  200.  
  201.